inherited frmRecalcActs: TfrmRecalcActs
  Left = 535
  Top = 303
  VertScrollBar.Range = 0
  BorderStyle = bsDialog
  Caption = #1055#1077#1088#1077#1089#1095#1077#1090' '#1072#1082#1090#1086#1074
  ClientHeight = 387
  ClientWidth = 557
  PixelsPerInch = 96
  TextHeight = 13
  inherited Panel1: TPanel
    Top = 357
    Width = 557
    Height = 30
    inherited BitBtn1: TBitBtn
      Left = 350
      Top = 3
    end
    inherited BitBtn2: TBitBtn
      Left = 452
      Top = 3
    end
    object BitBtn3: TBitBtn
      Left = 248
      Top = 3
      Width = 97
      Height = 25
      Action = aRecalcActs
      Anchors = [akTop, akRight]
      Caption = #1055#1077#1088#1077#1089#1095#1077#1090
      TabOrder = 2
      Glyph.Data = {
        36030000424D3603000000000000360000002800000010000000100000000100
        1800000000000003000000000000000000000000000000000000FFFFFFFFFFFF
        FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFD2DF
        F8F4F4F6FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
        FFFFFFFFFFFFFFFFC9C9CCDADADD0392FB069CFE969CBDFFFFFFFFFFFFFFFFFF
        FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF1F1F12230A1000DEA9698B22CB7
        FA56FFFF26B1FEF3F3F5F8F5F585724D8C8B65988B69988B68928A668D8A6494
        91622C2C810004FF0002FF605F6A3385F36EB4F75BAEFCCFDEF8F6E7E466E4A4
        71FFC491FFCD90FFCE7EFFC772FFC376FFC00000C00D15FF1319F836758E58B2
        A741857DBFBEC1FFFFFFF5E7E46ADB9E74FABF96FBC895FBC882F8C176F8BD7C
        FFBD0C11B83F46FF4C52FF4146EE3639F01E27E9B2B2BAFFFFFFF5E7E470DEA5
        7AFAC19BFBCB9AFBCB87F8C37BF7BF80FFC13F669E6061FB8588FF888BFF7A7E
        FF2326A2DCD9D9FFFFFFF6E8E62FAD5288FFD0A1FBCFA0FBCE8DFAC984FCC981
        F9C27EFFC13C619C4B50BD5C60C8374AA874A982DBD7D7FFFFFFF4E9E6C19054
        0FC25BB3FFE1A8FDD671F0B52EB14D84FECC85F9C687FFC697F8C996ECC7A7FF
        D677C98EDAD7D7FFFFFFF2E9E6F99A71CCA5662DC66BA0FBD2369E34FFAA7C34
        AF4C8AFED187F8C79BFBCFABFDD5A5FFD678C68EDAD7D7FFFFFFF2E9E6EF9D72
        FFB58DBFA8693B9F39FFB28EFFB38AF2AD7E23B04990FFD5A4FDD8B3FEDDA9FF
        DA7AC68FDAD7D7FFFFFFF2E8E5EFAF8EFFC8AAFFC7ABFFC7ADFFC7A9FFC6A9FF
        C7ABEEBF9A14B44A7BD49629A83FBDFFE97DC692DAD7D7FFFFFFF2E8E4EFC1AC
        FFDCCAFFDAC7FFDAC7FFDAC7FFDAC7FFDAC7FFDCCBE0D1B0A2C087FED8C54BB5
        5B81CA9ADAD7D7FFFFFFF2E6E3F3DBD0FFFAF4FFF8F2FFF8F2FFF8F2FFF8F2FF
        F8F2FFF8F2FFF9F4FFFAF6FFF9F5F5F5E85C9643D9D6D6FFFFFFFBFAF9C99B8B
        D3AB9CD2AA9BD2AA9BD2AA9BD2AA9BD2AA9BD2AA9BD2AA9BD2AA9BD2AA9BD6AC
        9ED3A397FEFEFEFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
        FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF}
    end
  end
  inherited ToolBar1: TToolBar
    Width = 557
  end
  object Panel2: TPanel [2]
    Left = 0
    Top = 29
    Width = 557
    Height = 328
    Align = alClient
    BevelOuter = bvNone
    TabOrder = 2
    object Label1: TLabel
      Left = 12
      Top = 10
      Width = 35
      Height = 13
      Caption = #1040#1082#1090#1099' '#1089
    end
    object Label2: TLabel
      Left = 172
      Top = 10
      Width = 12
      Height = 13
      Caption = #1087#1086
    end
    object dbgMeterList: TDBGridEh
      Left = 0
      Top = 29
      Width = 557
      Height = 299
      Align = alBottom
      DataSource = dscAccpointActs
      Flat = True
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      FooterColor = clWindow
      FooterFont.Charset = DEFAULT_CHARSET
      FooterFont.Color = clWindowText
      FooterFont.Height = -13
      FooterFont.Name = 'MS Sans Serif'
      FooterFont.Style = []
      HorzScrollBar.Visible = False
      Options = [dgTitles, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
      ParentFont = False
      ReadOnly = True
      TabOrder = 3
      TitleFont.Charset = DEFAULT_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -13
      TitleFont.Name = 'MS Sans Serif'
      TitleFont.Style = []
      UseMultiTitle = True
      VertScrollBar.VisibleMode = sbNeverShowEh
      VTitleMargin = 5
    end
    object dbtBDate: TDBDateTimeEditEh
      Left = 58
      Top = 5
      Width = 100
      Height = 22
      AlwaysShowBorder = True
      EditButton.Width = 16
      EditButtons = <>
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      Flat = True
      Kind = dtkDateEh
      ParentFont = False
      TabOrder = 0
      Visible = True
    end
    object dbtEDate: TDBDateTimeEditEh
      Left = 198
      Top = 5
      Width = 100
      Height = 22
      AlwaysShowBorder = True
      EditButton.Width = 16
      EditButtons = <>
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      Flat = True
      Kind = dtkDateEh
      ParentFont = False
      TabOrder = 1
      Visible = True
    end
    object bSearch: TButton
      Left = 304
      Top = 5
      Width = 75
      Height = 21
      Action = aSearchAct
      TabOrder = 2
    end
  end
  inherited ActionList1: TActionList
    Images = MAIN.ImageList
    Left = 164
    Top = 8
    object aSearchAct: TAction
      Caption = #1055#1086#1080#1089#1082
      Hint = #1053#1072#1081#1090#1080' '#1074#1089#1077' '#1072#1082#1090#1099' '#1089' '#1076#1072#1090#1086#1081' '#1084#1077#1078#1076#1091' ...'
    end
    object aRecalcActs: TAction
      Caption = #1055#1077#1088#1077#1089#1095#1077#1090
      Hint = #1055#1077#1088#1077#1089#1095#1080#1090#1072#1090#1100' '#1074#1089#1077' '#1074#1099#1073#1088#1072#1085#1085#1099#1077' '#1072#1082#1090#1099
      ImageIndex = 12
    end
  end
  inherited PropStorage: TPropStorageEh
    Left = 116
    Top = 8
  end
  object dsAccpointActs: TpFIBDataSet
    SelectSQL.Strings = (
      'select maa.id, mat.name, maa.act_date, maa.bdate, maa.edate, 0'
      '  from m_accpoint_acts maa, m_act_types mat'
      '  where maa.accpoint_id = :paccpoint_id'
      '    and maa.is_deleted = 0'
      '    and maa.act_date between :pbdate and :pedate'
      '    and mat.id = maa.act_type')
    Transaction = LocalTrans
    Database = MAINDM.pMainDatabase
    CSMonitorSupport.Enabled = csmeTransactionDriven
    Left = 201
    Top = 118
    oFetchAll = True
    object dsAccpointActsID: TFIBIntegerField
      FieldName = 'ID'
    end
    object dsAccpointActsNAME: TFIBStringField
      FieldName = 'NAME'
      Size = 30
      EmptyStrToNull = True
    end
    object dsAccpointActsACT_DATE: TFIBDateField
      DefaultExpression = 'current_date'
      FieldName = 'ACT_DATE'
      DisplayFormat = 'dd.mm.yyyy'
    end
    object dsAccpointActsBDATE: TFIBDateField
      FieldName = 'BDATE'
      DisplayFormat = 'dd.mm.yyyy'
    end
    object dsAccpointActsEDATE: TFIBDateField
      FieldName = 'EDATE'
      DisplayFormat = 'dd.mm.yyyy'
    end
    object dsAccpointActsCONSTANT: TFIBIntegerField
      FieldName = 'CONSTANT'
    end
  end
  object dscAccpointActs: TDataSource
    DataSet = mteAccpointActs
    Left = 269
    Top = 118
  end
  object LocalTrans: TpFIBTransaction
    DefaultDatabase = MAINDM.pMainDatabase
    TimeoutAction = TARollback
    CSMonitorSupport.Enabled = csmeDatabaseDriven
    Left = 324
    Top = 118
  end
  object mteAccpointActs: TMemTableEh
    Active = True
    Params = <>
    Left = 232
    Top = 118
    object mteAccpointActsID: TIntegerField
      DisplayLabel = #1048#1044
      DisplayWidth = 10
      FieldName = 'ID'
    end
    object mteAccpointActsNAME: TStringField
      DisplayLabel = #1058#1080#1087' '#1072#1082#1090#1072
      DisplayWidth = 20
      FieldName = 'NAME'
      Size = 30
    end
    object mteAccpointActsACT_DATE: TDateField
      DisplayLabel = #1044#1072#1090#1072' '#1072#1082#1090#1072
      DisplayWidth = 10
      FieldName = 'ACT_DATE'
    end
    object mteAccpointActsBDATE: TDateField
      DisplayLabel = #1053#1072#1095#1072#1083#1086' '#1087#1077#1088#1080#1086#1076#1072
      DisplayWidth = 10
      FieldName = 'BDATE'
    end
    object mteAccpointActsEDATE: TDateField
      DisplayLabel = #1054#1082#1086#1085#1095#1072#1085#1080#1077' '#1087#1077#1088#1080#1086#1076#1072
      DisplayWidth = 12
      FieldName = 'EDATE'
    end
    object mteAccpointActsCONSTANT: TIntegerField
      DisplayLabel = #1055#1077#1088#1077#1089#1095#1080#1090#1072#1085
      DisplayWidth = 12
      FieldName = 'CONSTANT'
    end
    object MemTableData: TMemTableDataEh
      object DataStruct: TMTDataStructEh
        object ID: TMTNumericDataFieldEh
          FieldName = 'ID'
          NumericDataType = fdtIntegerEh
          Alignment = taRightJustify
          DisplayLabel = 'ID'
          DisplayWidth = 10
          Required = False
          Visible = True
          currency = False
          Precision = 0
        end
        object NAME: TMTStringDataFieldEh
          FieldName = 'NAME'
          StringDataType = fdtStringEh
          Alignment = taLeftJustify
          DisplayLabel = 'NAME'
          DisplayWidth = 30
          Required = False
          Visible = True
          Size = 30
          Transliterate = False
        end
        object ACT_DATE: TMTDateTimeDataFieldEh
          FieldName = 'ACT_DATE'
          DateTimeDataType = fdtDateEh
          Alignment = taLeftJustify
          DefaultExpression = 'current_date'
          DisplayLabel = 'ACT_DATE'
          DisplayWidth = 10
          Required = False
          Visible = True
          DisplayFormat = 'dd.mm.yyyy'
        end
        object BDATE: TMTDateTimeDataFieldEh
          FieldName = 'BDATE'
          DateTimeDataType = fdtDateEh
          Alignment = taLeftJustify
          DisplayLabel = 'BDATE'
          DisplayWidth = 10
          Required = False
          Visible = True
          DisplayFormat = 'dd.mm.yyyy'
        end
        object EDATE: TMTDateTimeDataFieldEh
          FieldName = 'EDATE'
          DateTimeDataType = fdtDateEh
          Alignment = taLeftJustify
          DisplayLabel = 'EDATE'
          DisplayWidth = 10
          Required = False
          Visible = True
          DisplayFormat = 'dd.mm.yyyy'
        end
        object CONSTANT: TMTNumericDataFieldEh
          FieldName = 'CONSTANT'
          NumericDataType = fdtIntegerEh
          Alignment = taRightJustify
          DisplayLabel = 'CONSTANT'
          DisplayWidth = 10
          Required = False
          Visible = True
          currency = False
          Precision = 0
        end
      end
      object RecordsList: TRecordsListEh
      end
    end
  end
end
